home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 20 / 64er_Magazin_Sonderheft_20_19xx_Markt__Technik_de_Side_A.d64 / listing 2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  26 lines
  1. 10 rem * beispiel 1 *
  2. 20 rem erzeugen eigener zeichen
  3. 31 poke 56334,peek(56334) and 254:poke 1,peek(1) and 251
  4. 35 for i=0 to 63               :rem zu kopierender zeichenbereich
  5. 36 for j=0 to 7                :rem alle 8 bytes pro zeichen
  6. 37 poke 12288+i*8+j,peek(53248+i*8+j):rem ein byte kopieren
  7. 38 next j:next i               :rem nrndchstes byte oder zeichen
  8. 39 poke 1,peek(1) or 4:poke 56334,peek(56334) or 1
  9. 40 poke 53272,(peek(53272) and 240) + 12:rem zeichen aus ram holen
  10. 60 for zeic=60 to 63           :rem neue zeichen 60 bis 63
  11. 80 for byte=0 to 7             :rem alle 8 bytes pro zeichen
  12. 100 read number                :rem einlesen 1/8 zeichen
  13. 120 poke 12288+(8*zeic)+byte,number:rem daten speichern
  14. 140 next byte:next zeic
  15. 150 printchr$(147)tab(255)chr$(60);
  16. 155 printchr$(61)tab(55)chr$(62)chr$(63)
  17. 160 rem bringt die neudefinierten zeichen auf bildschirm
  18. 170 get a$                     :rem erwartet tastendruck
  19. 180 if a$="" then goto 170     :rem neuer versuch wenn keine taste
  20. 190 poke 53272,21              :rem zurueck zu normalen zeichen
  21. 200 data 4,6,7,5,7,7,3,3       :rem daten fuer zeichen 60
  22. 210 data 32,96,224,160,224,224,192,192:rem zeichen 61
  23. 220 data 7,7,7,31,31,95,143,127:rem zeichen 62
  24. 230 data 224,224,224,248,248,248,240,224:rem zeichen 63
  25. 240 end
  26.